home *** CD-ROM | disk | FTP | other *** search
/ Big Cock 7 / Big Cock 7 - Disc 1.iso / pc / main.dxr / 00085_TIME TABLE.ls < prev    next >
Encoding:
Text File  |  1996-10-17  |  2.8 KB  |  38 lines
  1. on ugettimetalbe hh, mm, channel
  2.   global gjampdirfilename, ch1, ch2, ch3, ch4, ch5, ch6, ch7, ch8
  3.   set ch1 to ["0000", "0000", "0100", "0100", "0100", "0100", "0300", "0300", "0300", "0300", "0300", "0300", "0600", "0600", "0600", "0600", "0800", "0800", "0800", "0800", "1000", "1000", "1000", "1000", "1200", "1200", "1300", "1300", "1300", "1300", "1300", "1300", "1600", "1600", "1600", "1600", "1800", "1800", "1800", "1800", "2000", "2000", "2000", "2000", "2000", "2000", "2300", "2300"]
  4.   set ch2 to ["0000", "0000", "0000", "0000", "0200", "0200", "0300", "0300", "0400", "0400", "0500", "0500", "0600", "0600", "0700", "0700", "0800", "0800", "0900", "0900", "1000", "1000", "1100", "1100", "1200", "1200", "1200", "1200", "1400", "1400", "1500", "1500", "1600", "1600", "1700", "1700", "1800", "1800", "1900", "1900", "2000", "2000", "2100", "2100", "2100", "2100", "2300", "2300"]
  5.   set ch3 to ["1700", "1700", "1600", "1600", "1900", "1900", "1300", "1300", "1400", "1400", "1500", "1500", "1600", "1600", "1700", "1700", "1800", "1800", "1200", "1200", "1300", "1300", "1400", "1400", "1700", "1700", "1500", "1500", "1600", "1600", "1800", "1800", "1700", "1700", "1200", "1200", "1300", "1300", "1400", "1400", "1500", "1500", "1600", "1600", "1700", "1700", "1800", "1800"]
  6.   set ch5 to ["0000", "0000", "0000", "0000", "0200", "0200", "0200", "0200", "0400", "0400", "0400", "0400", "0600", "0600", "0600", "0600", "0800", "0800", "0800", "0800", "1000", "1000", "1000", "1000", "1200", "1200", "1200", "1200", "1400", "1400", "1400", "1400", "1600", "1600", "1600", "1600", "1800", "1800", "1800", "1800", "2000", "2000", "2000", "2000", "2200", "2200", "2200", "2200"]
  7.   set ch7 to ["2400", "2400", "2400", "2400", "2400", "2400", "2400", "2400", "2400", "2400", "2400", "2400", "0600", "0600", "0600", "0600", "0600", "0600", "0600", "0600", "0600", "0600", "0600", "0600", "1200", "1200", "1200", "1200", "1200", "1200", "1200", "1200", "1200", "1200", "1200", "1200", "1800", "1800", "1800", "1800", "1800", "1800", "1800", "1800", "1800", "1800", "1800", "1800"]
  8.   set listnum to hh * 2
  9.   if mm >= 30 then
  10.     set listnum to listnum + 1
  11.   end if
  12.   set listnum to listnum + 1
  13.   if channel = 1 then
  14.     set gjampdirfilename to "@:P:P" & getAt(ch1, listnum)
  15.   else
  16.     if channel = 2 then
  17.       set gjampdirfilename to "@:Y:Y" & getAt(ch2, listnum)
  18.     else
  19.       if channel = 3 then
  20.         set gjampdirfilename to "@:B:B" & getAt(ch3, listnum)
  21.       else
  22.         if channel = 5 then
  23.           set gjampdirfilename to "T" & getAt(ch5, listnum)
  24.         else
  25.           if channel = 7 then
  26.             set gjampdirfilename to "@:I:I" & getAt(ch7, listnum)
  27.           else
  28.             if channel = 9 then
  29.               set gjampdirfilename to "G_cord"
  30.             end if
  31.           end if
  32.         end if
  33.       end if
  34.     end if
  35.   end if
  36.   return gjampdirfilename
  37. end
  38.